home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr35 / ansi_d2.zip / ANSI-D2.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-05-12  |  3KB  |  209 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Integer  INTEGER001
  23.     Integer  INTEGER002
  24.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.     String   STRING006
  30.     String   STRING007
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     INTEGER001 = 2
  35.     STRING003 = ""
  36.     BOOLEAN003 = 0
  37.     STRING007 = " "
  38.     STRING003 = GetToken()
  39.     While (STRING003 <> "") Do
  40.         If ((Mid(Upper(STRING003), 2, 8) == "ANSITIME") || (Mid(Upper(STRING003), 2, 2) == "AT")) Then
  41.             INTEGER001 = Mid(STRING003, InStr(STRING003, ":") + 1, 1)
  42.             If ((INTEGER001 < 1) || (INTEGER001 == "")) INTEGER001 = 2
  43.         ElseIf ((Mid(Upper(STRING003), 2, 7) == "RIPTIME") || (Mid(Upper(STRING003), 2, 2) == "RT")) Then
  44.             INTEGER002 = Mid(STRING003, InStr(STRING003, ":") + 1, 1)
  45.             If ((INTEGER002 < 1) || (INTEGER002 == "")) INTEGER002 = 2
  46.         Endif
  47.         STRING003 = GetToken()
  48.     EndWhile
  49.     STRING003 = ""
  50.     PrintLn "Testing your system capability..."
  51.     If (OnLocal()) Then
  52.         BOOLEAN001 = 1
  53.     Else
  54.         Print Chr(27) + " F"
  55.         Print STRING007 + STRING007 + STRING007
  56.         Print Chr(27) + "[6n"
  57.         Print STRING007 + STRING007 + STRING007 + STRING007
  58.         WaitFor Chr(27) + "[", BOOLEAN001, INTEGER001
  59.         Delay 2
  60.         STRING003 = Inkey()
  61.         If (BOOLEAN001) Then
  62.             While (STRING003 <> "") Do
  63.                 STRING005 = STRING005 + STRING003
  64.                 STRING003 = Inkey()
  65.                 If (STRING003 == "") Then
  66.                     Delay 2
  67.                     STRING003 = Inkey()
  68.                 Endif
  69.             EndWhile
  70.             Tokenize STRING005
  71.             STRING003 = GetToken()
  72.             If (((STRING003 >= 0) || (STRING003 <= 80)) && (Right(GetToken(), 1) == "R")) Then
  73.                 BOOLEAN001 = 1
  74.                 Goto LABEL001
  75.             Endif
  76.             BOOLEAN001 = 0
  77.             :LABEL001
  78.             STRING003 = ""
  79.         Endif
  80.         If (BOOLEAN001 && (INTEGER002 > 0)) Then
  81.             Print Chr(27) + "[!"
  82.             Print STRING007 + STRING007 + STRING007
  83.             WaitFor "RIPSCRIP", BOOLEAN002, INTEGER002
  84.         Endif
  85.     Endif
  86.     STRING002 = "Do you want graphics [Enter]="
  87.     STRING004 = ReadLine(PCBDat(), 257)
  88.     If (STRING004) Then
  89.         STRING006 = ReadLine(PCBDat(), 179)
  90.         FCreate 1, STRING006 + "ANSI-D.$$$", 2, 2
  91.         FPutLn 1, "The PPE shown in the subject, could not run properly because you"
  92.         FPutLn 1, "have your system configured to Default to Yes for the 'Do you want"
  93.         FPutLn 1, "graphics prompt'.  You need to change that setting in to 'N' in"
  94.         FPutLn 1, "PCBSetup | Configuration Options | Configuration Switches."
  95.         FPutLn 1, ""
  96.         FClose 1
  97.         Message 0, "SYSOP", PPEPath() + PPEName() + ".PPE", "Your Configuration", "R", Date() + 2, 0, 0, STRING006 + "ANSI-D.$$$"
  98.         PrintLn 
  99.         Print "Do you want graphics (Enter)=no"
  100.         End
  101.     Endif
  102.     If (BOOLEAN001) Then
  103.         If (BOOLEAN002) Then
  104.             STRING002 = STRING002 + "RIPscrip"
  105.         Else
  106.             STRING002 = STRING002 + "yes"
  107.         Endif
  108.         InputStr STRING002, STRING001, 7, 6, " ;QSR" + YesChar() + NoChar(), 410
  109.         Tokenize STRING001
  110.         :LABEL002
  111.         If (STRING003 == "") Goto LABEL003
  112.         GetToken STRING003
  113.         If (STRING003 == NoChar()) BOOLEAN003 = 1
  114.         Goto LABEL002
  115.         :LABEL003
  116.         If (!BOOLEAN003 && !BOOLEAN002) Then
  117.             STRING001 = YesChar() + ";" + STRING001
  118.         Else
  119.             STRING001 = "R" + ";" + STRING001
  120.         Endif
  121.         If ((STRING001 == "") && !BOOLEAN002) Then
  122.             STRING001 = YesChar()
  123.         ElseIf ((STRING001 == "") && BOOLEAN002) Then
  124.             STRING001 = "R"
  125.         Endif
  126.     Else
  127.         STRING002 = STRING002 + "no"
  128.         InputStr STRING002, STRING001, 7, 6, " ;QSR" + YesChar() + NoChar(), 410
  129.         If (STRING001 == "") STRING001 = NoChar()
  130.     Endif
  131.     KbdStuff STRING001
  132.     End
  133.  
  134. ;------------------------------------------------------------------------------
  135. ;
  136. ; Usage report (before postprocessing)
  137. ;
  138. ; ■ Statements used :
  139. ;
  140. ;    2       End
  141. ;    26      Goto 
  142. ;    32      Let 
  143. ;    7       Print 
  144. ;    2       PrintLn 
  145. ;    20      If 
  146. ;    1       FCreate 
  147. ;    1       FClose 
  148. ;    5       FPutLn 
  149. ;    2       InputStr 
  150. ;    2       Delay 
  151. ;    2       Tokenize 
  152. ;    1       GetToken 
  153. ;    1       KbdStuff 
  154. ;    2       WaitFor 
  155. ;    1       Message 
  156. ;
  157. ;
  158. ; ■ Functions used :
  159. ;
  160. ;    30      +
  161. ;    13      ==
  162. ;    2       <>
  163. ;    2       <
  164. ;    1       <=
  165. ;    1       >
  166. ;    1       >=
  167. ;    19      !
  168. ;    5       &&
  169. ;    5       ||
  170. ;    4       Upper()
  171. ;    6       Mid()
  172. ;    1       Right()
  173. ;    4       Chr()
  174. ;    2       InStr()
  175. ;    1       Date()
  176. ;    4       NoChar()
  177. ;    4       YesChar()
  178. ;    3       Inkey()
  179. ;    2       PCBDat()
  180. ;    1       PPEPath()
  181. ;    2       ReadLine()
  182. ;    1       OnLocal()
  183. ;    4       GetToken()
  184. ;    1       PPEName()
  185. ;
  186. ;------------------------------------------------------------------------------
  187. ;
  188. ; Analysis flags : d
  189. ;
  190. ; d - Access PCBOARD.DAT ■ 2
  191. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  192. ;     for many PPE so they can find various informations on the system
  193. ;     (system paths, max number of lines in messages, ...) but it may also
  194. ;     be a way to gather vital informations.
  195. ;     ■ Search for : PCBDAT()
  196. ;
  197. ;------------------------------------------------------------------------------
  198. ;
  199. ; Postprocessing report
  200. ;
  201. ;    0       For/Next
  202. ;    2       While/EndWhile
  203. ;    13      If/Then or If/Then/Else
  204. ;    0       Select Case
  205. ;
  206. ;------------------------------------------------------------------------------
  207. ;                 AEGiS Corp - Break the routines, code against the machines!
  208. ;------------------------------------------------------------------------------
  209.